home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / UDP_101N.ZIP / BRDCAST.FRM next >
Text File  |  1995-04-04  |  2KB  |  81 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "UDP Broadcast Demo"
  4.    ClientHeight    =   5175
  5.    ClientLeft      =   1305
  6.    ClientTop       =   2055
  7.    ClientWidth     =   7845
  8.    ForeColor       =   &H00000000&
  9.    Height          =   5580
  10.    Left            =   1245
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5175
  13.    ScaleWidth      =   7845
  14.    Top             =   1710
  15.    Width           =   7965
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Clear"
  18.       Height          =   375
  19.       Left            =   5880
  20.       TabIndex        =   2
  21.       Top             =   300
  22.       Width           =   1335
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Test!!"
  26.       Height          =   375
  27.       Left            =   4440
  28.       TabIndex        =   0
  29.       Top             =   300
  30.       Width           =   1335
  31.    End
  32.    Begin UDPPORT UDPPort1 
  33.       InBufferSize    =   2048
  34.       Left            =   3480
  35.       LocalPort       =   0
  36.       OutBufferSize   =   2048
  37.       RemoteHost      =   "255.255.255.255"
  38.       RemotePort      =   0
  39.       Top             =   720
  40.    End
  41.    Begin Label Label2 
  42.       Caption         =   "This demo will poll every UNIX host on the local net for DayTime (port 13)"
  43.       ForeColor       =   &H000000FF&
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   1
  47.       Top             =   60
  48.       Width           =   7695
  49.    End
  50. End
  51.  
  52. Sub Command1_Click ()
  53.  
  54. UDPPort1.Active = True
  55.  
  56. UDPPort1.RemoteHost = "255.255.255.255" 'broadcast address
  57. UDPPort1.RemotePort = 13 'daytime
  58.  
  59. UDPPort1.DataToSend = "!" ' just send something!!
  60.  
  61. End Sub
  62.  
  63. Sub Command2_Click ()
  64.  
  65. Cls: Print : Print : Print : Print
  66.  
  67. End Sub
  68.  
  69. Sub Form_Load ()
  70.  
  71. Cls: Print : Print : Print : Print
  72.  
  73. End Sub
  74.  
  75. Sub UDPPort1_DataIn (Datagram As String, SourceAddress As String, SourcePort As Integer)
  76.  
  77. Print "From: " & SourceAddress & " :: " & Datagram
  78.  
  79. End Sub
  80.  
  81.